home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 36 / PC Gamer IT CD 36 2-2.iso / VIGDEMO / data1.cab / Assets / scripts / rocket.e < prev    next >
Text File  |  1998-09-21  |  4KB  |  675 lines

  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220.  
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.  
  278.  
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342.  
  343.  
  344.  
  345.  
  346.  
  347.  
  348.  
  349.  
  350.  
  351.  
  352.  
  353.  
  354.  
  355.  
  356.  
  357.  
  358.  
  359.  
  360.  
  361.  
  362.  
  363.  
  364.  
  365.  
  366.  
  367.  
  368.  
  369.  
  370.  
  371.  
  372.  
  373.  
  374.  
  375.  
  376.  
  377.  
  378.  
  379.  
  380.  
  381.  
  382.  
  383.  
  384.  
  385.  
  386.  
  387.  
  388.  
  389.  
  390.  
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  
  404.  
  405.  
  406.  
  407.  
  408.  
  409.  
  410.  
  411.  
  412.  
  413.  
  414.  
  415.  
  416.  
  417.  
  418.  
  419.  
  420.  
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436.  
  437.  
  438.  
  439.  
  440.  
  441.  
  442.  
  443.  
  444.  
  445.  
  446.  
  447.  
  448.  
  449.  
  450.  
  451.  
  452.  
  453.  
  454.  
  455.  
  456.  
  457.  
  458.  
  459.  
  460.  
  461. int Initialize(string type)
  462. {
  463.     global int state = 0;
  464.     global real explodeTime = 4.0;
  465.     global int hitValue = 20;
  466.     global real gEndTime = 0.0;
  467.     global real gSmokeTime = 0.01;
  468.     global int gSmokeTrail = 0;
  469.     global real gExplodeRadius = 30.0;
  470.     global int gContrail = 1;
  471.     global int gStartSound = 7;
  472.     global int gProgressSound = 18;
  473.     global int gEndSound = 27;
  474.     global int gStartSoundChannel;
  475.     global real gAcceleration = 600.0; 
  476.     global real gVelocity;
  477.     global real gMaxVelocity = 600.0;
  478.     global real gLastTime = 0.0;
  479.     global real gMass = 2.0;
  480.     global int gScorchMark = 1;
  481.  
  482.     Reset("dummy");
  483.     return 0;
  484.  
  485. }
  486.  
  487. int startsound(string soundname)
  488. {
  489.     gStartSound = GetSoundIndex(soundname);
  490.  
  491. }
  492.  
  493. int scorchmark(string flag)
  494. {
  495.     gScorchMark = Str2Int(flag);
  496. }
  497.  
  498. int endsound(string soundname)
  499. {
  500.     gEndSound = GetSoundIndex(soundname);
  501.  
  502. }
  503.  
  504. int progresssound(string soundname)
  505. {
  506.     gProgressSound = GetSoundIndex(soundname);
  507.  
  508. }
  509.  
  510. int contrail(string str)
  511. {
  512.     gContrail = Str2Int(str);
  513. }
  514.  
  515. int Reset(string dummy)
  516. {
  517.     state = 0;
  518.     SetElas(thisObject,0.0);
  519.     SetStyle(thisObject,3);
  520.     SetCollidableProperties(thisObject,0,0);
  521.     SetPrivilege(thisObject,1);
  522.     gStartSoundChannel = 0;
  523.     
  524.     wakeupTime = -1.0;
  525.     
  526.     return 0;
  527. }
  528.  
  529. int exploderadius(string str)
  530. {
  531.     gExplodeRadius = Str2Real(str);
  532. }
  533.  
  534. int damage(string str)
  535. {
  536.     hitValue = Str2Int(str);
  537.     return 0;
  538. }
  539.  
  540.  
  541. int Fire(int flag)
  542. {
  543.     real time ;
  544.     time = GetTime(thisObject);
  545.  
  546.     gContrail = flag;
  547.     if (state == 0) 
  548.     {
  549.         state = 2;
  550.  
  551.     
  552.         SetCollidableProperties(thisObject,0,1);
  553.         SetStyle(thisObject,0);
  554.         PlaySound(thisObject,gStartSound);
  555.         
  556.         SetOldPos(thisObject);
  557.         wakeupTime = time + 0.05;
  558.         gLastTime = time;
  559.         gEndTime = time + explodeTime;
  560.     }
  561.     return 0;
  562. }
  563.  
  564. int Explosion(int param)
  565. {
  566.     FireSaveInfo(thisObject,hitValue,0,gMass);    
  567.     ExplodeFulfill(1);
  568.  
  569.     return 0;
  570. }
  571.  
  572. int ExplodeFulfill(int dummy)
  573. {
  574.     real time ;
  575.     time = GetTime(thisObject);
  576.     state = 4;
  577.     KillEFX(thisObject,gSmokeTrail);
  578.     gSmokeTrail = 0;
  579.     Explode(thisObject,hitValue,gExplodeRadius,gMass);
  580.     LaunchEFX(thisObject,2,0);
  581.     if (gStartSoundChannel != 0)
  582.         StopSound(thisObject,gStartSoundChannel);
  583.     PlaySound(thisObject,gEndSound);
  584.     if (gScorchMark == 1)
  585.         MakeDecal(thisObject,1,1,"scorchdecal",4.0);
  586.     SetCollidableProperties(thisObject,0,0);
  587.     SetStyle(thisObject,4);
  588.     wakeupTime = time + 1.0;
  589.     return 0;
  590. }
  591.  
  592.  
  593.  
  594.  
  595.  
  596.  
  597.  
  598.  
  599.  
  600.  
  601. int Collidants(string dummy) 
  602. {
  603.     if (state == 2)
  604.     {
  605.         Explosion(0);
  606.     }
  607.     return 0;
  608. }
  609.  
  610. int TimedEvent(int input)
  611. {
  612.     real time;
  613.     real timeStep;
  614.     real acc;
  615.     time = GetTime(thisObject);
  616.     if (state == 2)
  617.     {
  618.         if (time >= gEndTime)
  619.         {
  620.             wakeupTime = time;
  621.             state = 3;
  622.         }
  623.         else
  624.         {
  625.             
  626.             if (gContrail != 0)
  627.             {
  628.                 if (gSmokeTrail == 0)
  629.                 {
  630.                     gSmokeTrail = LaunchEFX(thisObject,1,0);    
  631.                     gStartSoundChannel = PlaySound(thisObject,gProgressSound,0,1,1);
  632.                     SetOldPos(thisObject);
  633.                 }
  634.                 else
  635.                 {
  636.                     MoveEFX(thisObject,gSmokeTrail,1);    
  637.                     SetOldPos(thisObject);
  638.                     
  639.                 }
  640.             }
  641.  
  642.  
  643.                 gVelocity = GetSpeed(thisObject);
  644.                 if (gVelocity < gMaxVelocity)
  645.                 {
  646.                     timeStep = time - gLastTime;
  647.                     gLastTime = time;
  648.                     acc = timeStep * gAcceleration;
  649.                     gVelocity += acc;    
  650.                     SetVelocity(thisObject,gVelocity);
  651.                 }
  652.                 wakeupTime = time + gSmokeTime;
  653.  
  654.  
  655.  
  656.  
  657.  
  658.         }
  659.     }
  660.     else if (state == 3)
  661.     {
  662.         Explosion(0);
  663.     }
  664.     else if (state == 4)
  665.     {
  666.         
  667.         Remove(thisObject,0);
  668.         wakeupTime = -1.0;
  669.     }
  670.     else
  671.         wakeupTime = -1.0;
  672.     return 0;
  673. }
  674.  
  675.